0 V=53248:D$="":POKEV+33,0:POKEV+32,0:PRINT"[147]"D$
1 POKEV+21,0:POKEV+28,0:POKEV+23,0:POKEV+29,0:B$="                            "
2 PRINTCHR$(8)SPC(7)"[158][198][162][162][162][162][162][162][162][162][162][162][162][162][146][184][184][184][184][184][184][183][183][183][183][163][163]
3 [153][166]7)" GETRNDRNDGETNEWRNDGETNEWNEWGETNEWRNDGETNEWRNDWAITLOGRNDNEWGETNEWRNDGETNEWRND
4 PRINTSPC(7)" [161][161][161][161][162][162][161][162][146][190][161][187][162][161][162][187][161][161][161][161][187][162]
5 [153][166]7)" WAITLOGLOGLOGLOG  LOGNEWNEWWAITLOGLOGNEWWAITLOG LOG LOGNEWWAITLOGNEWNEWWAITLOGLOGRND
6 PRINTSPC(7)"[175][146] S  O  F  T  W  A  R  E[158][161]
7 [153][166]7)"NEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEW
8 FORI=0TO17:PRINT:FORK=0TO9:NEXTK,I:PRINT"
9 U$[178]"NEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWPOSANDTO          TOANDPOSNEW"
10 J$[178]"WAIT WAIT WAIT WAIT WAIT WAIT WAIT WAIT WAIT WAIT WAIT WAIT WAIT WAIT WAIT WAIT WAIT WAITTAB(WAITUSRWAITFRENEWPOSANDTO TOANDPOSNEWWAITFREWAITUSRWAITTAB("
11 [129]I[178]1[164]13:[153]""[166]7)[202](U$,I,13)[202](U$,32[171]I)
12 [153][166]7)[202](J$,I[170]I,26)[202](J$,77[171]I[171]I):[130]
13 U$[178]"        P R E S E N T S":[129]I[178]1[164]8
14 [153]""[166]11)[202](U$,I,9)[202](U$,25[171]I):[129]J[178]0[164]99:[130]J,I
20 [129]I[178]0[164]3E3:[130]:[153]"LOAD":[151]53272,([194](53272)[175]240)[176]2:S[178]54272:[158]4458
21 [129]I[178]0[164]9:N$(I)[178]"COMPUTER ___ 0000 FND,":[130]
22 [151]V[170]21,0:[151]V[170]29,0:[153]"LOADDEF"[166]14)"PEEKLENSTR$VALASCVALASCCHR$LEFT$PEEKLEN"[166]29)"CLRRIGHT$MID$(null)(null) (null) (null)(null)RIGHT$MID$
24 POKE36898,59:POKE36899,2:POKE5843,33:SYS5758:PRINTSPC(54)"(C) 1987 [159]BY
26 [153][166]51)"SYSI M P E R A T O R"[166]24)"S O F T W A R E
28 PRINT"[154]OH HERR. EURE BURG IST IN GRO^ER GEFAHR!
30 [153]"ONDIE KNECHTE DES B\SEN RITTERS GUMBART
32 PRINT"SCHICKEN SICH AN. EURE BURG HOHENFELS ZU
34 [153]"ONERST]RMEN, WEHRT DIE GARSTIGEN KERLE
36 PRINT"AB, VON DEN LETZTEN BAUARBEITEN LIEGEN
38 [153]"NOCH EINE MENGE STEINE HERUM,
42 A=0:PRINTSPC(49)"[150]WIEVIEL MUT HABT IHR?
44 A$(0)[178]"  KNAPPE  ":A$(1)[178]"  RITTER  ":A$(2)[178]" BURGHERR ":A$(3)[178]"  K\NIG   "
46 [129]I[178]0[164]3:[153][200](D$,19[170]I[170]I)[166]14)""A$(I)"":[130]
48 [153][200](D$,19[170]A[170]A)[166]14)"SYS"A$(A)"
50 IF(PEEK(56320)AND1)=0THENIFA>0THENA=A-1
52 IF(PEEK(56320)AND2)=0THENIFA<3THENA=A+1
54 IF(PEEK(56320)AND16)=0GOTO100
56 GOTO46
100 POKE36898,55:POKE36899,2:POKE5843,17
105 PRINT"[152][147][193][193][151][184][183]                                [185][186][152][193][193]";
110 PRINT"[193][193][151]  [146][184][183]                            [185][186]  [146][152][193][193]";
120 PRINT"[193][193][151]    [146]                                [146][152][193][193]":FORI=4TO25
130 PRINTLEFT$(D$,I)"[193][193][151] [146][152][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][151] [146][152][193]
140 [151]1023[170]I[172]40,65:[130]
150 [129]I[178]1[164]5:[153][202]("STOPPOKEPRINT#LISTSYS",I,1)""[166]8)"PEEKLENSTR$VALASCVALASCCHR$LEFT$PEEKLEN
160 PRINTSPC(8)"[145][201][202][203][206] [206] [204][205][201][202]":FORJ=0TO66:NEXTJ,I
170 PRINT""SPC(21)"ERSCHLAGENE"SPC(29)"FEINDE:[150]0000
180 [158]4096
200 [129]I[178]36864[164]36884:[151]I,0:[130]:[151]36865,1:[151]36866,8.5[171]1.5[172]A:SW[178]A
210 [129]I[178]41[164]47:[151]V[170]I,1:[130]:[151]36900,1:[151]36901,1
300 [158]5746:[139][194](2)[178]0[137]300
310 [151]V[170]21,[194](V[170]21)[175]254:[151]2041,210:[129]I[178]0[164]5:[139][194](V[170]5[170]I[170]I)[178]66[167]P[178]I
320 [139][194](2042[170]I)[177]199[167][151]V[170]21,[194](V[170]21)[175](255[171]2[174](I[170]2))
330 [130]:SC[178]0:[129]I[178]0[164]3:SC[178]SC[170]([194](1095[171]I)[171]48)[172]10[174]I:[130]
340 [151]V[170]5[170]P[170]P,65:[129]I[178]211[164]224:[151]2042[170]P,I:[129]J[178]0[164]66:[130]J,I:[151]2042[170]P,210
350 A[178]V[170]4[170]P[170]P:B[178]2[174](2[170]P):X[178][194](A):[139][194](V[170]16)[175](2[174](2[170]P))[167]X[178]X[170]256
360 Y[178][194](V[170]2):[139][194](V[170]16)[175]2[167]Y[178]Y[170]256
370 J[178]Y[171]X:[139][182](J)[179]4[137]400
380 [139]J[179]0[137]390
382 X[178]X[170]1:[139]X[178]256[167][151]V[170]16,[194](V[170]16)[176]B:[151]A,0:[137]370
384 [151]A,[194](A)[170]1:[137]370
390 X[178]X[171]1:[139]X[178]255[167][151]V[170]16,[194](V[170]16)[175](255[171]2[174](2[170]P)):[151]A,255:[137]370
392 [151]A,[194](A)[171]1:[137]370
400 [129]I[178]224[164]211[169][171]1:[151]2041,I:[129]J[178]0[164]66:[130]J,I:[151]2041,200
410 A[178][171]5:[129]I[178]66[164]250[169]2:[151]V[170]3,I:A[178]A[170]1
420 [139]A[178]8[175][194](2041)[179]205[167]A[178]0:[151]2041,[194](2041)[170]1
430 [130]:A[178]54280:[151]A,2:[151]A[170]4,0:[151]A[170]5,249:[151]A[170]3,33:[151]A[170]3,32
440 [129]I[178]0[164]250:[130]:[129]I[178]0[164]2:[129]J[178]209[164]207[169][171]1:[151]2042[170]P,J
450 [129]K[178]0[164]66:[130]K,J:[129]J[178]208[164]210:[151]2042[170]P,J:[129]K[178]0[164]66:[130]K,J,I
460 [158]6026:[151]V[170]39,1:[151]V[170]40,1:[129]I[178]0[164]3E3:[130]:[151]V[170]21,3[170]2[174](P[170]2)
462 P[178]10:A[178]49[172]SW[170]SC:[129]I[178]9[164]0[169][171]1:[139]A[177]H(I)[167]P[178]I
464 [130]:[139]P[177]9[137]500
466 [129]I[178]10[164]P[170]1[169][171]1:N$(I)[178]N$(I[171]1):H(I)[178]H(I[171]1):[130]
468 N$(P)[178][202](A$(SW),2)[170]"??? ":H(P)[178]A
470 U$[178][202]([196](SC),2):N$(P)[178]N$(P)[170][200]("0000",4[171][195](U$))[170]U$[170]" FND,"
500 [129]I[178]10[164]23:[153][200](D$,I)[166]6)B$:[130]
510 [153][200](D$,10)[166]6)"POKE";B$[200](D$,23)[166]6)B$"CMD(null)"[200](D$,10);
520 [153][166]6)"(null)"[166]26)"(null)"[200](D$,23)[166]6)"(null)
530 FORI=11TO22:PRINTLEFT$(D$,I)SPC(6)" "SPC(26)" ":NEXT
540 PRINTLEFT$(D$,11)SPC(9)"[154]DIE 10 GR\^TEN HELDEN:
550 [129]I[178]0[164]9:[153][200](D$,13[170]I)"DEF";:[139]I[178]0[167][153]"FOR";
560 [153][166]7)I[170]1;:[139]I[178]9[167][153]"CMDCMDCMDCMD10 ";
570 [153]"CMD, "N$(I):[130]:[139]P[177]9[167][129]I[178]0[164]5E3:[130]:[137]22
600 U$[178]"":[129]I[178]0[164]2:A[178]0
610 [153][200](D$,13[170]P)[166]20[170]I)"SYS"[199](65[170]A)
620 [139]([194](56320)[175]16)[178]0[167]U$[178]U$[170][199](A[170]65):[158]5412:[129]J[178]0[164]500:[130]J,I:[137]700
630 [139]([194](56320)[175]4)[178]0[167]A[178]A[171]1:[139]A[179]0[167]A[178]29
640 [139]([194](56320)[175]8)[178]0[167]A[178]A[170]1:[139]A[178]30[167]A[178]0
650 [129]J[178]0[164]33:[130]:[137]610
700 N$(P)[178][200](N$(P),9)[170]U$[170][202](N$(P),13):[129]I[178]1[164]5E3:[130]:[137]22